home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Original Shareware 1.1
/
The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso
/
19
/
tpnet.zip
/
PASCAL.PAS
next >
Wrap
Pascal/Delphi Source File
|
1987-02-04
|
5KB
|
70 lines
{pasneta.pas
this file contains the function and procedure declarations
for the TurboPascal/Advanced NetWare interface}
type
Strvar = String[52];
function xtndopn(var Mode, Handle: Integer;var Filename: Strvar): Integer; external 'PASNETA.COM';
function setattr(var Func, Attribute: Integer; var Filename: Strvar): Integer; external xtndopn[3];
function eojstat(var Flag: Integer):integer; external xtndopn[6];
function PRLH_Log(var FileHandle,HiByteOffset,LoByteOffset,HiLockLen,
LoLockLen,Flags,TimeOut: Integer): Integer; external xtndopn[9];
function PRLH_Rel(var FileHandle,HiByteOffset,LoByteOffset,HiLockLen,
LoLockLen: Integer): Integer; external xtndopn[12];
function PRLH_Clr(var FileHandle,HiByteOffset,LoByteOffset,HiLockLen,
LoLockLen: Integer): Integer; external xtndopn[15];
function PRLF_Log(var fcb,HiByteOffset,LoByteOffset,HiLockLen,LoLockLen,
Flags,TimeOut: Integer): Integer; external xtndopn[18];
function PRLF_Rel(var fcb,HiByteOffset,LoByteOffset: Integer): Integer; external xtndopn[21];
function PRLF_Clr(var fcb,HiByteOffset,LoByteOffset: Integer): Integer; external xtndopn[24];
function PRLS_Lck(var Flags,TimeOut: Integer): Integer; external xtndopn[27];
function PRLS_Rel: Integer; external xtndopn[30];
function PRLS_Clr: Integer; external xtndopn[33];
function OpenSem(var Sema4: Strvar; var SemaValu,HiHandle,LoHandle,OpenCnt: Integer): Integer; external xtndopn[36];
function ExamSem(var HiHandle,LoHandle,SemaValu,OpenCnt: Integer): Integer; external xtndopn[39];
function WaitSem(var HiHandle,LoHandle,TimeOut: Integer): Integer; external xtndopn[42];
function SigSem(var HiHandle,LoHandle: Integer): Integer; external xtndopn[45];
function ClosSem(var HiHandle,LoHandle: Integer): Integer; external xtndopn[48];
function setlck(var Func: Integer): Integer; external xtndopn[51];
function BakOuts(var Func: Integer): Integer; external xtndopn[54];
function btrans(var Mode: Integer): Integer; external xtndopn[57];
function etrans: Integer; external xtndopn[60];
function exclog(var FcbAddr: Integer): Integer; external xtndopn[63];
function exclcks(var Mode: Integer): Integer; external xtndopn[66];
function exculkf(var FcbAddr: Integer): Integer; external xtndopn[69];
function exculks: Integer; external xtndopn[72];
function excclrf(var FcbAddr: Integer): Integer; external xtndopn[75];
function excclrs: Integer; external xtndopn[78];
function reclog(var RecStr: Strvar;var flag,TimeOut:integer): Integer; external xtndopn[81];
function reclck(var Mode: Integer): Integer; external xtndopn[84];
function reculk(var Semaphore: Strvar): Integer; external xtndopn[87];
function reculks: Integer; external xtndopn[90];
function recclr(var Semaphore: Strvar): Integer; external xtndopn[93];
function recclrs: Integer; external xtndopn[96];
function eoj: Integer; external xtndopn[99];
function sysout: Integer; external xtndopn[102];
function volstat(var volume: Integer;var reply: Strvar): Integer; external xtndopn[105];
function locdrv:Integer; external xtndopn[108];
function wsid: Integer; external xtndopn[111];
function errmode(var mode: Integer):integer; external xtndopn[114];
function bcsmode(var mode: Integer):integer; external xtndopn[117];
function ctlspl(var Mode: Integer): Integer; external xtndopn[120];
function splreq(var RequestBlock, Reply: Strvar): Integer; external xtndopn[123];
function pipreq(var RequestBlock, Reply: Strvar): Integer; external xtndopn[126];
function dpath(var RequestBlock, Reply: Strvar): Integer; external xtndopn[129];
function syslog(var RequestBlock, Reply: Strvar): Integer; external xtndopn[132];
function fattr(var FcbAddr, Attribute: Integer): Integer; external xtndopn[135];
function updfcb(var FcbAddr: Integer): Integer; external xtndopn[138];
function cpyfile(var FcbSource, FcbDest, CountLow, CountHigh: Integer): Integer; external xtndopn[141];
function nettod(var time: Strvar):integer; external xtndopn[144];
function clsmode(var mode: Integer):integer; external xtndopn[147];
function drvmap(var drive: Integer): Integer; external xtndopn[150];
function retshl(var EnvirStr: Strvar; var Mode: Integer): Integer; external xtndopn[153];
function asclog(var Flags, TimeOut: Integer;var Asciiz: Strvar): Integer; external xtndopn[156];
function asculkf(var Asciiz: Strvar): Integer; external xtndopn[159];
function ascclrf(var Asciiz: Strvar): Integer; external xtndopn[162];
function Get_PSN: Integer; external xtndopn[165];
function Get_STA(var Mode,Segment,Offset: Integer):integer; external xtndopn[168];
function SetServ(var Mode,NewServ: Integer): Integer; external xtndopn[171];
function ModServ(var Mode,NewServ: Integer): Integer; external xtndopn[174];